perm filename PROB4.PUB[LSP,JRA]7 blob sn#178014 filedate 1975-09-22 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.CENT(Problems involving list-notation)
C00004 ENDMK
C⊗;
.CENT(Problems involving list-notation)
.P12:
.BEGIN CENTERIT;SELECT 1;
.GROUP
.P65:
I  Translate the following lists into S-expr dotted-pair notation.
←%21.%3 (A B C)   %22.%3 (A)   %23.%3 ((A))   %24.%3 (A (B (C)))  %25.%3 (NIL).
.APART
.GROUP
%1

Now go the other way and translate the following S-exprs into list notation.
←%26.%3 ((A .(B . NIL)).((C . NIL). NIL))   %27.%3 (NIL . NIL)
←%28.%3 (CONS .((QUOTE .(A . NIL)). NIL))
.APART
.GROUP
%1

II  Evaluate the following, writing the results in list notation where possible.
←%21.%3 car[(A B)]   %22.%3 cdr[(A B)]   %23.%3 cons[A;(B C)]   %24.%3 cons[A;NIL]
←%25.%3 cons[eq[A;A];(A B C)] %26.%3 cadr[(A B)]
.APART
.END